home *** CD-ROM | disk | FTP | other *** search
/ Star Festival... a Return to Japan / Star Festival... a Return to Japan.iso / pc / STARFESTIVAL / 04p4.dir / 00001.ls next >
Encoding:
Text File  |  1999-04-06  |  1.4 KB  |  53 lines
  1. on startMovie
  2.   global gKnobSprite, gSendMovie, gCursorReady, gKnobState, gMagCursor
  3.   puppetSprite(48, 1)
  4.   gCursorReady = 1
  5.   gMagCursor = "magCursor"
  6.   gKnobSprite = 14
  7.   gSendMovie = "04p4"
  8.   setUpKnob()
  9.   set the mouseDownScript to EMPTY
  10.   set the mouseUpScript to EMPTY
  11. end
  12.  
  13. on idle
  14.   global gCursorReady
  15.   if gCursorReady = 1 then
  16.     cursor(200)
  17.     checkCursors()
  18.     set the locH of sprite 48 to the mouseH
  19.     set the locV of sprite 48 to the mouseV
  20.     updateStage()
  21.   end if
  22. end
  23.  
  24. on checkCursors
  25.   global gMagCursor
  26.   gMagCursor = "magCursor"
  27.   set the castNum of sprite 48 to the number of member "curs1"
  28.   if the castNum of sprite 5 and rollOver(5) then
  29.     set the castNum of sprite 48 to the number of member gMagCursor
  30.   end if
  31.   if the castNum of sprite 8 and rollOver(8) then
  32.     set the castNum of sprite 48 to the number of member "deMagCursor"
  33.   end if
  34.   repeat with i = 15 to 17
  35.     if rollOver(i) then
  36.       set the castNum of sprite 48 to the number of member "hotCursor"
  37.     end if
  38.   end repeat
  39.   repeat with i = 30 to 32
  40.     if rollOver(i) then
  41.       set the castNum of sprite 48 to the number of member "hotCursor"
  42.     end if
  43.   end repeat
  44.   repeat with i = 40 to 42
  45.     if rollOver(i) then
  46.       set the castNum of sprite 48 to the number of member "hotCursor"
  47.     end if
  48.   end repeat
  49.   if the castNum of sprite 47 and rollOver(47) then
  50.     set the castNum of sprite 48 to the number of member "hotCursor"
  51.   end if
  52. end
  53.